<%
aid=int(request.querystring("id"))
'call ShowProd(aid) '这一句便可实现判断用户权限，须包含head.asp。如果不想判断权限，则在左侧添加“ ' ”来注释掉。
%>
<% sql="select * from prod where 1=1"
id=request.QueryString("id")
imgprodPath="imgprod/"
if id<>"" then
sql=sql&" and articleid="&id
end if
sql=sql&" order by orderid desc"
rs.open sql,conn,1,1
if not (rs.eof or rs.bof) then
smallpicurl="images/z04.jpg"
if rs("smallpicurl")<>"" then
smallpicurl=imgprodPath&rs("smallpicurl")
end if
bigpicurl=imgprodPath&rs("bigpicurl")
prodid=rs("articleid")
prodname=rs("prodname")
if rs("specialid")<>"" and rs("specialid")>0 then
specialname=myidv2("ProdSpecial","specialid",rs("specialid"),"specialname")
end if
xinghao=rs("xinghao")
yongtu=rs("yongtu")
chandi=rs("tedian")
tedian=rs("tedian")
end if
rs.close
set rs=nothing
%>
| 图片名称 >
<% =prodname %> |
|
|
|
<%
If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
%>
<%
dim ContentStr,Content
content=yongtu
ContentStr=split(Content,"|||")
For i=pageNum to pageNum
%>
<%=ContentStr(i) %>
<% Next %>
|
<%if ubound(ContentStr)<>0 then%>
|
| 本文共分
<%
i=1
dim o
o=Request("page")
o=o+1
For p = 0 to ubound(ContentStr)
if o<>i then
%>
<%=p+1%>
<%
else
response.Write(""&p+1&"")
end if
%>
<%
i=i+1
Next %>页
|
<%end if%>
|
|
|
|
|
|
|
